home *** CD-ROM | disk | FTP | other *** search
/ Eros - Digital Erotica & Games / Eros - Digital Erotica & Games.iso / mac / EROS vol.1 / EROS vol.DXR / 00571.ls < prev    next >
Encoding:
Text File  |  1995-07-07  |  870 b   |  31 lines
  1. on exitFrame
  2.   global r
  3.   go(marker(0) + 5)
  4.   Navi()
  5.   if r < 2 then
  6.     set r to r + 1
  7.     if r = 2 then
  8.       set the locH of sprite 4 to the locH of sprite 27
  9.       set the locV of sprite 4 to the locV of sprite 27
  10.       set the locH of sprite 5 to the locH of sprite 28
  11.       set the locV of sprite 5 to the locV of sprite 28
  12.       puppetSprite(18, 1)
  13.       cursor(0)
  14.     end if
  15.   end if
  16.   movWatch()
  17.   if rollOver(27) then
  18.     set the castNum of sprite 18 to the number of cast "CAN"
  19.     set the locV of sprite 18 to the locV of sprite 14
  20.     set the locH of sprite 18 to the locH of sprite 14
  21.     exit
  22.   end if
  23.   if rollOver(28) then
  24.     set the castNum of sprite 18 to the number of cast "FRAN"
  25.     set the locV of sprite 18 to the locV of sprite 15
  26.     set the locH of sprite 18 to the locH of sprite 15
  27.     exit
  28.   end if
  29.   set the locV of sprite 18 to -200
  30. end
  31.